﻿Public Class Form1

    Shared dshopdong As New ArrayList()
    Shared dsnhanvien As New ArrayList()
    Shared dscanho As New ArrayList()
    Shared dsqlcanho As New ArrayList()
    Shared dstracuucanho As New ArrayList()
    Shared dsdangnhap As New ArrayList()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ThoátToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThoátToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub ĐăngNhậpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ĐăngNhậpToolStripMenuItem.Click
        Dim hopdong As New Đăng_Nhập()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub HợpĐồngToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HợpĐồngToolStripMenuItem.Click
        Dim hopdong As New Hợp_Đồng()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()

    End Sub

    Private Sub QuanLyNhanVienToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuanLyNhanVienToolStripMenuItem.Click
        Dim hopdong As New Quản_Lý_Nhân_Viên()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ThôngTinKháchHàngThânThiếtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinKháchHàngThânThiếtToolStripMenuItem.Click
        Dim hopdong As New Khách_Hàng_Thân_Thiết()

        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub TraCuuCanHoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCuuCanHoToolStripMenuItem.Click
        Dim hopdong As New Tra_Cứu_Căn_Hộ()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

   

  
    Private Sub ĐăngKíToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ĐăngKíToolStripMenuItem.Click
        Dim hopdong As New Đăng_Kí()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ĐãGiaoDịchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ĐãGiaoDịchToolStripMenuItem.Click
        Dim hopdong As New Đã_Giao_Dịch()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ChưaGiaoDịchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChưaGiaoDịchToolStripMenuItem.Click
        Dim hopdong As New Chưa_Giao_Dịch()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ThêmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThêmToolStripMenuItem.Click
        Dim hopdong As New Thêm_Mới_Căn_Hộ()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Dim hopdong As New Quản_Lý_Khách_hàng_Thân_Thiết()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub QuảnLýKháchHàngThânThiếtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuảnLýKháchHàngThânThiếtToolStripMenuItem.Click
        Dim hopdong As New Khách_Hàng_Thân_Thiết()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub CầnBánToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CầnBánToolStripMenuItem.Click
        Dim hopdong As New Nhà_Cần_bán()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub CầnChoThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CầnChoThuêToolStripMenuItem.Click
        Dim hopdong As New Cần_Cho_Thuê()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub NhuCầuThuêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NhuCầuThuêToolStripMenuItem.Click
        Dim hopdong As New Nhu_Cầu_Thuê()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub TraCứuNhânViênToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TraCứuNhânViênToolStripMenuItem.Click
        Dim hopdong As New Tra_Cứu_Nhân_Viên()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub DanhMụcĐơnVịTínhToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DanhMụcĐơnVịTínhToolStripMenuItem.Click
        Dim hopdong As New Đơn_Vị_Tính()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ThôngTINKháchHàngThânThiếtToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTINKháchHàngThânThiếtToolStripMenuItem1.Click
        Dim hopdong As New Thông_Tin_Khách_hàng_Thân_thiết()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ThôngTinNhânViênToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThôngTinNhânViênToolStripMenuItem1.Click
        Dim hopdong As New Tra_Cứu_Nhân_Viên()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub HoáĐơnToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HoáĐơnToolStripMenuItem.Click
        Dim hopdong As New Tra_Cứu_Hoá_Đơn()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

  

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Dim hopdong As New Thống_Kê_Căn_Hộ()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub ThốngKêToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ThốngKêToolStripMenuItem.Click
        Dim hopdong As New Thống_kê_khách_hàng()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub

    Private Sub TìmKiếmToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TìmKiếmToolStripMenuItem.Click
        Dim hopdong As New Tìm_kiếm_khách_hàng()
        hopdong.Tag = dshopdong
        hopdong.ShowDialog()
    End Sub
End Class
